10 POKE56,56:CLR:DV=PEEK(186):IFDV<8ORDV>29THENDV=8:REM FLOYD R KIRK
12 POKE53371,0:POKE788,49:TQ=TI
14 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
20 SYS57812"PAIR FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
22 FORI=0TO63:POKE14*64+I,0:NEXT:FORI=0TO21STEP3:POKE14*64+I,255:NEXT
24 VV=53248:POKE2040,14:POKE2041,14:POKEVV+21,0:POKEVV,72:POKEVV+1,162
26 POKEVV+2,128:POKEVV+3,162:POKEVV+39,1:POKEVV+40,1
28 POKEVV+16,0:POKEVV+29,0:POKEVV+23,0:POKEVV+27,3
30 DIMW(8),S(2),T(2),R(2),U(2),P$(2):N=1
40 DIMF(14):FORI=0TO9:READF(I):NEXT:F2=1
50 DIMF1(37):FORI=0TO14:READF1(I):NEXT
60 DIMA(12):FORI=2TO12:READA(I):NEXT
70 DIMF3(83):FORI=1TO83:READF3(I):NEXT
78 IFTI<TQ+120THEN78
80 POKE53280,15:POKE53281,15
90 POKE53272,31:PRINT"[144][147]";TAB(10);"[208][193][201][210] [207]' [196][201][195][197] [199][193][205][197][211]":GOSUB900:P=1
92 POKEVV+21,3
100 IFN=5THEN1220
110 IFN=1ORN=3THENP$(1)="[208]LAYER  ":P$(2)="[195]OMPUTER":GOTO130
120 P$(1)="[208]LAYER 1":P$(2)="[208]LAYER 2"
130 PRINT"[147]";:S(1)=0:S(2)=0:T(1)=0:T(2)=0:T=P
140 IFN>2THENPRINTTAB(16);"[199][210][197][197][196]":R(1)=0:R(2)=0:U(1)=10:U(2)=10:GOTO160
150 PRINTTAB(17);"[208][201][199]"
160 PRINTP$(1);TAB(19);P$(2):PRINT
170 PRINT"[199]AME [211]CORE:        [199]AME [211]CORE:"
180 PRINT"[212]URN [211]CORE:        [212]URN [211]CORE:"
190 PRINT"[212]OTAL:             [212]OTAL:"
200 IFN<3THEN230
210 PRINT"[198]IRST ROLL:        [198]IRST ROLL:"
220 PRINT"[212]URNS LEFT:        [212]URNS LEFT:"
230 PRINT"[215]INS:";TAB(19);"[215]INS:"
240 REM R=11:C=0:GOSUB1230
242 REM FORQQ=1TO6:PRINTTAB(3)"                 ":NEXT
246 R=11:C=0:GOSUB1230:PRINT
250 PRINTTAB(4)"ABC[146]    ABC"
260 PRINTTAB(4)"DEFG[146]   DEFG"
270 PRINTTAB(4)"HI?K[146]   HI?K"
280 PRINTTAB(4)"LMNO[146]   LMNO"
290 R=12:C=25:GOSUB1230:PRINT"";P$(T);"[144]"
300 IF(N=1ORN=3)ANDT=2THEN330
310 R=14:C=25:GOSUB1230:PRINT"[198]1[144] [197]ND TURN":PRINTTAB(25)"[198]7[144] [210]OLL DICE"
312 PRINTTAB(25)"[198]8[144] [205]ENU
320 [137]340
330 R[178]14:C[178]25:[141]1230:[153]"             ":[153][163]25);"             "
332 [153][163]25);"             "
340 R[178]5:C[178]12:[141]1230:[153]"     CMDCMDCMDCMDCMDCMD";[166]6[171]([195]([196](S(1)))));S(1);
350 [153][163]31);"     CMDCMDCMDCMDCMDCMD";[166]6[171]([195]([196](S(2)))));S(2)
360 [153][163]13);"    CMDCMDCMDCMDCMD";[166]5[171]([195]([196](T(1)))));T(1);
370 [153][163]32);"    CMDCMDCMDCMDCMD";[166]5[171]([195]([196](T(2)))));T(2)
380 [153][163]12);"     CMDCMDCMDCMDCMDCMD";[166]6[171]([195]([196](S(1)[170]T(1)))));S(1)[170]T(1);
390 [153][163]31);"     CMDCMDCMDCMDCMDCMD";[166]6[171]([195]([196](S(2)[170]T(2)))));S(2)[170]T(2)
400 [139]N[179]3[167]430
410 [153][163]12);"  CMDCMDCMD";R(1);[163]31);"  CMDCMDCMD";R(2)
420 [153][163]12);"  CMDCMDCMD";U(1);[163]31);"  CMDCMDCMD";U(2)
430 [153][163]5);W(2[172]N[171]1);[163]24);W(2[172]N)
440 [139]N[179]3[175](S(T)[170]T(T)[177][178]100)[176]N[177]2[175]U(1)[178]0[175]U(2)[178]0[167][141]53370:[137]720
450 [139]N[178]2[176]N[178]4[176]T[178]1[167]570
460 [139]N[178]3[167]490
470 [139]T(T)[179](200[171]S(T))[173]11[167]620
480 [137]530
490 [139]T(T)[178]0[167]620
500 [139]U(1)[178]0[175](S(T)[170]T(T)[177]S(1))[167]530
510 [139]T(T)[179]A(R(T))[167]620
520 [139]U(T)[178]1[175](S(T)[170]T(T)[179][178]S(1))[167]620
530 S(T)[178]S(T)[170]T(T)
540 T(T)[178]0:T[178]3[171]T
550 [139]N[177]2[167]U(3[171]T)[178]U(3[171]T)[171]1:R(1)[178]0:R(2)[178]0
560 [141]52510:[137]290
570 [151]198,0:[151]53370,0
580 [161]A$
590 [139]A$[178]"INPUT"[167]530
592 [139]A$[178][199](140)[167]90
600 [139]A$[178]"LET"[167]620
610 [141]870:[137]580
620 D1[178][181]([187](1)[172]6[170]1):D2[178][181]([187](1)[172]6[170]1)
622 [141]52040
630 [151]1590,48[170]D1[170]128:[151]1597,48[170]D2[170]128
640 [139]T[178]1[167]680
650 [151]53370,0:TI$[178]"000000"
660 [139]TI[179]30[167][141]870:[137]660
670 [151]53371,0
680 [139]N[177]2[175]R(T)[178]0[167]R(T)[178]D1[170]D2:T(T)[178]R(T):[137]290
690 T(T)[178]T(T)[170]D1[170]D2:[139]N[179]3[175]D1[178]1[175]D2[178]1[167]S(T)[178]0:[141]1240:[137]540
700 [139]N[179]3[175](D1[178]1[176]D2[178]1)[176]N[177]2[175](D1[170]D2[178]R(T))[167][141]1270:[137]540
710 [137]290
720 [139]N[179]3[167]W(2[172]N[171]2[170]T)[178]W(2[172]N[171]2[170]T)[170]1:R[178]8:[137]770
730 [139]S(1)[177]S(2)[167]W(2[172]N[171]1)[178]W(2[172]N[171]1)[170]1:T[178]1:[137]760
740 [139]S(2)[177]S(1)[167]W(2[172]N)[178]W(2[172]N)[170]1:T[178]2:[137]760
750 T[178]0
760 R[178]10
770 C[178]5:[141]1230:[153]W(2[172]N[171]1);[163]24);W(2[172]N)
780 [139]N[179]3[167][153]:[153]
790 [153]"";[163]25);"ASC1STOP LENHANGE GAME":[153][163]25);"ASC7STOP (null)AME GAME"
792 [153][163]25)"ASC8STOP (null)UIT"
800 P[178]3[171]P:D[178]55000[170]19[172](T[171]1):[151]198,0:[151]53370,0
810 [161]A$
820 [139]A$[178]"LET"[167]130
822 [139]A$[178][199](140)[167]1220
830 [139]A$[178]"INPUT"[167][141]52510:[137]90
840 [139]T[178]0[167]810
850 [129]I[178]1[164]83:[151]F3(I)[170]D,F(F2):[130]:F2[178]F2[170]1:[139]F2[178]10[167]F2[178]0
860 [137]810
870 [151]53370,0
880 [129]I[178]0[164]14:[151]F1(I),F(F2):[151]F1(I)[170]7,F(F2):[143]  FORQQ=1TO200:NEXT
882 [130]:F2[178]F2[170]1:[139]F2[178]10[167]F2[178]0
890 [142]
900 [151]VV[170]21,0
902 [153]"(null)RIGHT$CHR$STOP - ATN TWO-PLAYER GAME, WITH THE FIRST"
910 [153]"TO ROLL A TOTAL OF 100 OR MORE POINTS"
920 [153]"THE WINNER. (null)OLL TWO DICE AND ADD UP THE";
930 [153]"NUMBERS, UNTIL YOU DECIDE TO STOP OR A
940 PRINT"DIE SHOWS A 1. [193] 1 ON ONE DIE MEANS YOU
950 [153]"LOSE YOUR COUNT FOR THAT TURN; A DOUBLE
960 PRINT"1 ZEROES YOUR TOTAL SCORE. [193]NYTIME YOU
970 [153]"SHOW A 1, YOUR TURN ENDS."
980 [153]"CHR$(null)VALVALSTR$STOP - ATN TWO-PLAYER GAME LASTING TEN"
990 [153]"TURNS, WITH THE HIGH SCORER AT THE END"
1000 [153]"BEING THE WINNER. (null)OLL TWO DICE AND ADD"
1010 [153]"UP THE NUMBERS UNTIL (A) YOU DECIDE TO
1020 PRINT"STOP AND SAVE WHAT YOU HAVE ROLLED THAT
1030 [153]"TURN, OR (B) THE DICE ADD UP TO THE
1040 PRINT"NUMBER OF YOUR FIRST ROLL OF THAT TURN.
1050 [153]"RIGHT$F (B), YOU LOSE WHAT YOU ROLLED THAT
1060 PRINT"TURN AND YOUR TURN ENDS."
1070 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1080 PRINT"[221]"TAB(21)"[221]"TAB(29)"[198]1[144] [195]HANGE"
1090 PRINT"[221]"TAB(21)"[221]"TAB(29)"[198]7[144] [196]O IT
1092 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1100 R[178]21:C[178]8:[141]1230:[139]N[179]3[167][153]" (null)RIGHT$CHR$ STOP":[137]1120
1110 [139]N[178]3[176]N[178]4[167][153]"CHR$(null)VALVALSTR$STOP"
1120 [139]N[178]1[176]N[178]3[167][153]" (null)LAYER VS LENOMPUTER STOP":[137]1150
1130 [139]N[178]2[176]N[178]4[167][153]"(null)LAYER 1 VS (null)LAYER 2STOP":[137]1150
1140 [153]" (null)(null)RIGHT$(null)":[153]"    TO (null)(null)ATNSTR$(null)(null)ATN(null)STOP     "
1150 [151]198,0
1160 [161]A$:[139]A$[178]""[167]1160
1170 [139]A$[178]"LET"[167]1210
1180 [139]A$[179][177]"INPUT"[167]1150
1190 N[178]N[170]1:[139]N[178]6[167]N[178]1
1200 [137]1100
1210 [142]
1220 [151]VV[170]21,0:[153]"LOAD":[151]53281,0:[151]53280,0:[137]40000
1230 [151]781,R:[151]782,C:[151]783,0:[158]65520:[142]
1240 R[178]17:C[178]5:[141]1230:[153]"(null)H NOOOOO!":[151]53370,0:TI$[178]"000000"
1242 [141]51170
1250 [139]TI[179]120[167][141]870:[137]1250
1252 [151]1590,63[170]128:[151]1597,63[170]128
1260 [153][163]5);"ON           ":[151]53371,0:[142]
1270 R[178]17:C[178]3:[141]1230:[153]"PEEKYE-BYE, POINTS!":[151]53370,0:TI$[178]"000000"
1272 [141]52340
1280 [139]TI[179]80[167][141]870:[137]1280
1282 [151]1590,63[170]128:[151]1597,63[170]128
1290 [153][163]3);"ON                ":[151]53371,0:[142]
1300 [131]2,8,7,5,6,4,6,5,7,8
1310 [131]55780,55781,55820,55860,55821,55782
1320 [131]55822,55861,55900,55901,55862,55823,55863,55902,55903
1340 [131]250,123,80,58,44.4,35,42.4,54,74,115,240
1350 [131]696,656,616,697,576,657,576,536,617,698,496,577,658,537,618,699
1360 [131]659,416,497,578,538,619,700,417,498,579,660,539,620,418,499,580
1370 [131]702,419,581,662,622,541,703,663,420,501,542,623,704,664,421,502
1380 [131]543,624,705,665,422,503,625,706,544,666,423,504,545,626,505,546
1390 [131]668,506,628,669,588,629,589,508,549,509,590,550,510,591,551,511
1400 [131]592,552,512
10000 D[178][194](186):N$[178]"0:PAIR O' DICE":[159]5,D,15,"S"[170]N$:[160]5:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
51160 [143] BOMB
51170 S[178]54272:[151]53370,0
51180 H9[178]32289
51190 [151]S[170]5,7:[151]S[170]6,160:[151]S[170]24,143
51200 [151]S[170]1,H9[173]256:[151]S,H9[175]255
51210 [151]S[170]15,3:[151]S[170]4,19
51220 [129]T9[178]1[164]10:[130]
51230 H9[178]H9[171]658:[139]H9[179]4222[167]51250
51240 [137]51200
51250 [151]S[170]4,129:V9[178]15
51260 [129]T9[178]1[164]100:[130]:[151]S[170]24,V9
51270 V9[178]V9[171]1:[139]V9[167]51260
51280 [151]S[170]24,0
51290 [151]53371,0:[142]
52030 [143] CARD SHUFFLE
52040 S[178]54272:[151]53370,0
52050 [151]S[170]5,14:[151]S[170]6,249
52060 [151]S[170]24,15:P9[178]5000
52070 [151]S[170]1,P9[173]256:[151]S,P9[175]255
52072 [151]1590,49[170]128[170][187](0)[172]6:[151]1597,49[170]128[170][187](0)[172]6
52080 [151]S[170]4,128
52090 [129]T9[178]1[164]21:[130]
52100 [151]S[170]4,127
52110 P9[178]P9[170]1800:[139]P9[179]20000[167]52070
52120 [151]53371,0:[142]
52330 [143] FOGHORN
52340 S[178]54272
52350 [151]S[170]5,41:[151]S[170]6,204
52360 [151]S[170]24,143
52370 [151]S[170]1,20:[151]S[170]15,4:[151]S[170]4,19
52380 [151]S[170]14,117:[151]S[170]18,16
52390 [129]T9[178]1[164]800:[130]
52400 [151]S[170]4,18:[151]S[170]24,0:[142]
52510 S[178]54272:H9[178]24:A9[178]0:[151]53370,0
52520 [151] S[170]5,20:[151]S[170]6,8:[151]S[170]24,15
52530 [151] S[170]1,H9:[151]S,0
52540 [151] S[170]4,17:[129]T9[178]0[164]25:[130]
52550 [151] S[170]4,16
52560 A9[178]A9[170]1:[139]A9[177]8[167][142]
52570 [139]H9[178]24[167]H9[178]15:[137]52530
52580 [139]H9[178]15[167]H9[178]24:[137]52530
52590 [151]53371,0:[142]
53360 [143] DIDGEREE-DOO
53370 S[178]54272:H9[178]2:A9[178]0:[151]53370,0
53380 [151]S[170]5,8:[151]S[170]6,172:[151]S[170]24,15
53390 [151]S[170]1,H9:[151]S,0:[151]S[170]15,8
53400 [151]S[170]4,83:[129]T9[178]1[164]29:[130]
53410 [151]S[170]4,82
53420 A9[178]A9[170]1:[139]A9[177]40[167][151]S[170]24,0:[151]53371,0:[142]
53430 [139][181](A9[173]2)[178]A9[173]2[167]H9[178]H9[171]1:[137]53390
53440 H9[178]H9[170]2:[137]53390
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) ATN RIGHT$ (null)   (null) '   STR$ RIGHT$ LEN VAL   CHR$ ATN (null) VAL (null)
60040 Z$(2)="BY [198]LOYD [203]IRK
60050 Z$(4)[178]"(C) 1999 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]:[129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]